home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.04 Apr 91 / Code Optimizing / Sources / Dummy.f.FPU.opt2.a < prev    next >
Encoding:
Text File  |  1990-04-26  |  4.5 KB  |  207 lines  |  [TEXT/MPS ]
  1. ;    Assembler source from Language Systems FORTRAN (Version 2.0 January 23, 1990)
  2. ;    Sat, Apr 14, 1990   16:43
  3. ;    Optimization Level 2.
  4.  
  5. ;  Floating-point operations have been commented out.
  6.  
  7.  
  8.         BLANKS ON
  9.         STRING ASIS
  10.         PRINT OFF
  11.         INCLUDE 'Traps.a'
  12.         INCLUDE 'ToolEqu.a'
  13.         INCLUDE 'QuickEqu.a'
  14.         INCLUDE 'SysEqu.a'
  15.         INCLUDE 'SANEMacs.a'
  16.         PRINT ON
  17.  
  18.         MACHINE MC68030
  19.         MC68881
  20.  ;  File "mxmpy.f";  Line          1
  21.         SEG    'mxmpy'
  22. DUMMY    PROC EXPORT
  23.         LINK    A6,#$FFFFFF2C
  24.         MOVEM.L    D5-D7,-(SP)
  25.         FMOVE    FP7,-(SP)
  26.  ;  File "mxmpy.f";  Line         17
  27.         BRA        L10002
  28. L10001    EQU    *
  29.         MOVE.L    #$00000001,$FFFFFFAC(A6)
  30.         MOVEA.L    $0010(A6),A0
  31.         MOVE.L    (A0),$FFFFFFB0(A6)
  32.         MOVE.L    (A0),D0
  33.         ASL.L    #2,D0
  34.         MOVE.L    D0,D1
  35.         ADD.L    D0,D0
  36.         ADD.L    D1,D0
  37.         MOVE.L    D0,$FFFFFF64(A6)
  38.         MOVE.L    $FFFFFF64(A6),$FFFFFFB4(A6)
  39.         MOVE.L    #$00000001,$FFFFFFB8(A6)
  40.         MOVEA.L    $000C(A6),A0
  41.         MOVE.L    (A0),$FFFFFFBC(A6)
  42.         MOVE.L    $FFFFFFB4(A6),$FFFFFF4C(A6)
  43.         MOVEA.L    $000C(A6),A0
  44.         MOVE.L    $FFFFFF4C(A6),D1
  45.         MULS.L    $0000(A0),D1
  46.         MOVE.L    D1,$FFFFFF4C(A6)
  47.         MOVE.L    $FFFFFF4C(A6),$FFFFFFC0(A6)
  48.         MOVE.L    #$00000001,$FFFFFFC4(A6)
  49.         MOVEA.L    $000C(A6),A0
  50.         MOVE.L    (A0),$FFFFFFC8(A6)
  51.         MOVE.L    (A0),D0
  52.         ASL.L    #2,D0
  53.         MOVE.L    D0,D1
  54.         ADD.L    D0,D0
  55.         ADD.L    D1,D0
  56.         MOVE.L    D0,$FFFFFF54(A6)
  57.         MOVE.L    $FFFFFF54(A6),$FFFFFFCC(A6)
  58.         MOVE.L    #$00000001,$FFFFFFD0(A6)
  59.         MOVEA.L    $0008(A6),A0
  60.         MOVE.L    (A0),$FFFFFFD4(A6)
  61.         MOVE.L    $FFFFFFCC(A6),$FFFFFF54(A6)
  62.         MOVEA.L    $0008(A6),A0
  63.         MOVE.L    $FFFFFF54(A6),D1
  64.         MULS.L    $0000(A0),D1
  65.         MOVE.L    D1,$FFFFFF54(A6)
  66.         MOVE.L    $FFFFFF54(A6),$FFFFFFD8(A6)
  67.         MOVE.L    #$00000001,$FFFFFFDC(A6)
  68.         MOVEA.L    $0010(A6),A0
  69.         MOVE.L    (A0),$FFFFFFE0(A6)
  70.         MOVE.L    $FFFFFF64(A6),$FFFFFFE4(A6)
  71.         MOVE.L    #$00000001,$FFFFFFE8(A6)
  72.         MOVEA.L    $0008(A6),A0
  73.         MOVE.L    (A0),$FFFFFFEC(A6)
  74.         MOVE.L    $FFFFFFE4(A6),$FFFFFF5C(A6)
  75.         MOVEA.L    $0008(A6),A0
  76.         MOVE.L    $FFFFFF5C(A6),D1
  77.         MULS.L    $0000(A0),D1
  78.         MOVE.L    D1,$FFFFFF5C(A6)
  79.         MOVE.L    $FFFFFF5C(A6),$FFFFFFF0(A6)
  80.         RTS
  81. L10002    EQU    *
  82.         BSR        L10001
  83.  ;  File "mxmpy.f";  Line         18
  84.         MOVEQ    #$0001,D1
  85.         SUB.L    $FFFFFFC4(A6),D1
  86.         ASL.L    #2,D1
  87.         MOVE.L    D1,D0
  88.         ADD.L    D1,D1
  89.         ADD.L    D0,D1
  90.         MOVEQ    #$0001,D2
  91.         SUB.L    $FFFFFFD0(A6),D2
  92.         MULS.L    $FFFFFFCC(A6),D2
  93.         ADD.L    D1,D2
  94.         MOVE.L    D2,$FFFFFF84(A6)
  95.         MOVEQ    #$0001,D1
  96.         SUB.L    $FFFFFFAC(A6),D1
  97.         ASL.L    #2,D1
  98.         MOVE.L    D1,D0
  99.         ADD.L    D1,D1
  100.         ADD.L    D0,D1
  101.         MOVEQ    #$0001,D2
  102.         SUB.L    $FFFFFFB8(A6),D2
  103.         MULS.L    $FFFFFFB4(A6),D2
  104.         ADD.L    D1,D2
  105.         MOVE.L    D2,$FFFFFF80(A6)
  106.         MOVEQ    #$0001,D1
  107.         SUB.L    $FFFFFFDC(A6),D1
  108.         ASL.L    #2,D1
  109.         MOVE.L    D1,D0
  110.         ADD.L    D1,D1
  111.         ADD.L    D0,D1
  112.         MOVEQ    #$0001,D2
  113.         SUB.L    $FFFFFFE8(A6),D2
  114.         MULS.L    $FFFFFFE4(A6),D2
  115.         ADD.L    D1,D2
  116.         MOVE.L    D2,$FFFFFF7C(A6)
  117.         MOVE.L    #$00000001,$FFFFFFA0(A6)
  118.         MOVEA.L    $0010(A6),A1
  119.         MOVE.L    (A1),D5
  120.         BLE        L10004
  121. L10003    EQU    *
  122.  ;  File "mxmpy.f";  Line         19
  123.         MOVE.L    $FFFFFF7C(A6),$FFFFFF78(A6)
  124.         MOVE.L    $FFFFFF80(A6),$FFFFFF74(A6)
  125.         MOVE.L    $FFFFFF84(A6),$FFFFFF70(A6)
  126.         MOVE.L    #$00000001,$FFFFFFA4(A6)
  127.         MOVEA.L    $0008(A6),A1
  128.         MOVE.L    (A1),D6
  129.         BLE        L10006
  130. L10005    EQU    *
  131.  ;  File "mxmpy.f";  Line         20
  132.         LEA        $FFFFFFF4(A6),A1
  133.         CLR.L    (A1)+
  134.         CLR.L    (A1)+
  135.         CLR.L    (A1)+
  136.  ;  File "mxmpy.f";  Line         21
  137.         MOVE.L    $FFFFFF70(A6),$FFFFFF6C(A6)
  138.         MOVE.L    $FFFFFF74(A6),$FFFFFF68(A6)
  139.         MOVE.L    #$00000001,$FFFFFFA8(A6)
  140.         MOVEA.L    $000C(A6),A1
  141.         MOVE.L    (A1),D7
  142.         BLE        L10008
  143. L10007    EQU    *
  144.  ;  File "mxmpy.f";  Line         22
  145.         MOVE.L    $FFFFFF68(A6),$FFFFFF48(A6)
  146.         MOVE.L    $FFFFFF6C(A6),$FFFFFF4C(A6)
  147.         MOVEA.L    $001C(A6),A0
  148.         ADDA.L    $FFFFFF48(A6),A0
  149. ;        FMOVE.X    (A0),FP7
  150.         MOVEA.L    $0018(A6),A1
  151.         ADDA.L    $FFFFFF4C(A6),A1
  152. ;        FMUL.X    (A1),FP7
  153. ;        FADD.X    $FFFFFFF4(A6),FP7
  154. ;        FMOVE.X    FP7,$FFFFFFF4(A6)
  155.  ;  File "mxmpy.f";  Line         23
  156.         MOVE.L    $FFFFFFB4(A6),D1
  157.         ADD.L    D1,$FFFFFF68(A6)
  158.         MOVEQ    #$000C,D1
  159.         ADD.L    D1,$FFFFFF6C(A6)
  160.         ADDQ.L    #1,$FFFFFFA8(A6)
  161.         SUBQ.L    #1,D7
  162.         BGT.S    L10007
  163. L10008    EQU    *
  164.  ;  File "mxmpy.f";  Line         24
  165.         MOVE.L    $FFFFFF78(A6),$FFFFFF60(A6)
  166.         LEA        $FFFFFFF4(A6),A0
  167.         MOVEA.L    $0014(A6),A1
  168.         ADDA.L    $FFFFFF60(A6),A1
  169.         MOVE.L    (A0)+,(A1)+
  170.         MOVE.L    (A0)+,(A1)+
  171.         MOVE.L    (A0)+,(A1)+
  172.  ;  File "mxmpy.f";  Line         25
  173.         MOVE.L    $FFFFFFCC(A6),D1
  174.         ADD.L    D1,$FFFFFF70(A6)
  175.         MOVE.L    $FFFFFFE4(A6),D1
  176.         ADD.L    D1,$FFFFFF78(A6)
  177.         ADDQ.L    #1,$FFFFFFA4(A6)
  178.         SUBQ.L    #1,D6
  179.         BGT        L10005
  180. L10006    EQU    *
  181.  ;  File "mxmpy.f";  Line         26
  182.         MOVEQ    #$000C,D1
  183.         ADD.L    D1,$FFFFFF7C(A6)
  184.         MOVEQ    #$000C,D1
  185.         ADD.L    D1,$FFFFFF80(A6)
  186.         ADDQ.L    #1,$FFFFFFA0(A6)
  187.         SUBQ.L    #1,D5
  188.         BGT        L10003
  189. L10004    EQU    *
  190.  ;  File "mxmpy.f";  Line         27
  191.         FMOVE    (SP)+,FP7
  192.         MOVEM.L    (SP)+,D5-D7
  193.         UNLK    A6
  194.         RTD        #$0018
  195.  ;  File "mxmpy.f";  Line         27
  196. PROCSTR    EQU    *
  197.         DC.W    $FFFF8006
  198.         DC.B    'DUMMY '
  199.         DC.W    $0000
  200. EXTDCONST    EQU        *
  201.         DC.W    $0000,$0000,$0000,$0000,$0000,$0000
  202.  
  203.         ENDPROC
  204.  
  205.  
  206.         END
  207.